home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / richte1a / frmmain.frm < prev    next >
Text File  |  1999-10-05  |  20KB  |  674 lines
  1. VERSION 5.00
  2. Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
  3. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
  4. Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
  5. Begin VB.Form frmMain 
  6.    BorderStyle     =   1  'Fixed Single
  7.    Caption         =   "Rich Text IP Chat"
  8.    ClientHeight    =   3450
  9.    ClientLeft      =   45
  10.    ClientTop       =   330
  11.    ClientWidth     =   4380
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    ScaleHeight     =   3450
  15.    ScaleWidth      =   4380
  16.    StartUpPosition =   3  'Windows Default
  17.    Begin MSWinsockLib.Winsock sckConnect 
  18.       Left            =   3960
  19.       Top             =   3000
  20.       _ExtentX        =   741
  21.       _ExtentY        =   741
  22.       _Version        =   393216
  23.    End
  24.    Begin RichTextLib.RichTextBox rtbChat 
  25.       Height          =   1660
  26.       Left            =   80
  27.       TabIndex        =   18
  28.       Top             =   190
  29.       Width           =   4215
  30.       _ExtentX        =   7435
  31.       _ExtentY        =   2910
  32.       _Version        =   393217
  33.       Enabled         =   -1  'True
  34.       ReadOnly        =   -1  'True
  35.       ScrollBars      =   2
  36.       TextRTF         =   $"frmMain.frx":0000
  37.    End
  38.    Begin MSComDlg.CommonDialog dlgColors 
  39.       Left            =   3480
  40.       Top             =   3000
  41.       _ExtentX        =   847
  42.       _ExtentY        =   847
  43.       _Version        =   393216
  44.    End
  45.    Begin VB.CommandButton cmdColors 
  46.       Height          =   320
  47.       Left            =   2040
  48.       Picture         =   "frmMain.frx":00EF
  49.       Style           =   1  'Graphical
  50.       TabIndex        =   17
  51.       Top             =   1930
  52.       Width           =   315
  53.    End
  54.    Begin RichTextLib.RichTextBox rtbText 
  55.       Height          =   360
  56.       Left            =   -5
  57.       TabIndex        =   16
  58.       Top             =   2240
  59.       Width           =   3720
  60.       _ExtentX        =   6562
  61.       _ExtentY        =   635
  62.       _Version        =   393217
  63.       Enabled         =   -1  'True
  64.       TextRTF         =   $"frmMain.frx":0431
  65.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  66.          Name            =   "Arial"
  67.          Size            =   9.75
  68.          Charset         =   0
  69.          Weight          =   400
  70.          Underline       =   0   'False
  71.          Italic          =   0   'False
  72.          Strikethrough   =   0   'False
  73.       EndProperty
  74.    End
  75.    Begin VB.CheckBox chkUnderline 
  76.       Height          =   320
  77.       Left            =   3120
  78.       Picture         =   "frmMain.frx":0520
  79.       Style           =   1  'Graphical
  80.       TabIndex        =   15
  81.       Top             =   1930
  82.       Width           =   315
  83.    End
  84.    Begin VB.CheckBox chkItalic 
  85.       Height          =   320
  86.       Left            =   2815
  87.       Picture         =   "frmMain.frx":0862
  88.       Style           =   1  'Graphical
  89.       TabIndex        =   14
  90.       Top             =   1930
  91.       Width           =   315
  92.    End
  93.    Begin VB.ComboBox cmbFonts 
  94.       Height          =   315
  95.       Left            =   10
  96.       Sorted          =   -1  'True
  97.       Style           =   2  'Dropdown List
  98.       TabIndex        =   13
  99.       Top             =   1930
  100.       Width           =   1935
  101.    End
  102.    Begin VB.CheckBox chkBold 
  103.       Height          =   320
  104.       Left            =   2520
  105.       Picture         =   "frmMain.frx":0BA4
  106.       Style           =   1  'Graphical
  107.       TabIndex        =   12
  108.       Top             =   1930
  109.       UseMaskColor    =   -1  'True
  110.       Width           =   315
  111.    End
  112.    Begin VB.CommandButton cmdConnect 
  113.       Caption         =   "Connect"
  114.       Height          =   405
  115.       Left            =   3390
  116.       TabIndex        =   11
  117.       Top             =   2655
  118.       Width           =   975
  119.    End
  120.    Begin VB.TextBox txtIP 
  121.       Height          =   285
  122.       Left            =   1960
  123.       TabIndex        =   10
  124.       Text            =   "localhost"
  125.       Top             =   3120
  126.       Width           =   1415
  127.    End
  128.    Begin VB.TextBox txtPort 
  129.       Height          =   285
  130.       Left            =   440
  131.       TabIndex        =   8
  132.       Text            =   "400"
  133.       Top             =   3120
  134.       Width           =   1215
  135.    End
  136.    Begin VB.OptionButton optHostGuest 
  137.       Caption         =   "Guest"
  138.       Height          =   195
  139.       Index           =   1
  140.       Left            =   2520
  141.       TabIndex        =   6
  142.       Top             =   2760
  143.       Value           =   -1  'True
  144.       Width           =   735
  145.    End
  146.    Begin VB.OptionButton optHostGuest 
  147.       Caption         =   "Host"
  148.       Height          =   195
  149.       Index           =   0
  150.       Left            =   1800
  151.       TabIndex        =   5
  152.       Top             =   2760
  153.       Width           =   735
  154.    End
  155.    Begin VB.TextBox txtNick 
  156.       Height          =   285
  157.       Left            =   440
  158.       TabIndex        =   4
  159.       Text            =   "NickName"
  160.       Top             =   2700
  161.       Width           =   1215
  162.    End
  163.    Begin VB.CommandButton cmdSend 
  164.       Caption         =   "Send"
  165.       Height          =   335
  166.       Left            =   3720
  167.       TabIndex        =   2
  168.       Top             =   2245
  169.       Width           =   625
  170.    End
  171.    Begin VB.Frame frmeSep 
  172.       Height          =   135
  173.       Left            =   0
  174.       TabIndex        =   1
  175.       Top             =   2520
  176.       Width           =   4385
  177.    End
  178.    Begin VB.Frame frmeChatWindow 
  179.       Caption         =   "Chat Window"
  180.       Height          =   1935
  181.       Left            =   0
  182.       TabIndex        =   0
  183.       Top             =   0
  184.       Width           =   4365
  185.    End
  186.    Begin VB.Shape shpGreen 
  187.       BackColor       =   &H00008000&
  188.       BackStyle       =   1  'Opaque
  189.       BorderColor     =   &H00008000&
  190.       Height          =   255
  191.       Left            =   3960
  192.       Shape           =   3  'Circle
  193.       Top             =   3120
  194.       Width           =   255
  195.    End
  196.    Begin VB.Shape shpRed 
  197.       BackColor       =   &H000000FF&
  198.       BackStyle       =   1  'Opaque
  199.       BorderColor     =   &H000000FF&
  200.       FillColor       =   &H00000080&
  201.       Height          =   255
  202.       Left            =   3480
  203.       Shape           =   3  'Circle
  204.       Top             =   3120
  205.       Width           =   255
  206.    End
  207.    Begin VB.Label lblIP 
  208.       BackStyle       =   0  'Transparent
  209.       Caption         =   "IP:"
  210.       Height          =   255
  211.       Left            =   1710
  212.       TabIndex        =   9
  213.       Top             =   3150
  214.       Width           =   255
  215.    End
  216.    Begin VB.Label lblPort 
  217.       BackStyle       =   0  'Transparent
  218.       Caption         =   "Port:"
  219.       Height          =   255
  220.       Left            =   0
  221.       TabIndex        =   7
  222.       Top             =   3150
  223.       Width           =   375
  224.    End
  225.    Begin VB.Line lneSep3 
  226.       BorderColor     =   &H80000003&
  227.       Index           =   1
  228.       X1              =   3345
  229.       X2              =   3345
  230.       Y1              =   2640
  231.       Y2              =   3050
  232.    End
  233.    Begin VB.Line lneSep3 
  234.       BorderColor     =   &H00FFFFFF&
  235.       Index           =   0
  236.       X1              =   3360
  237.       X2              =   3360
  238.       Y1              =   2640
  239.       Y2              =   3060
  240.    End
  241.    Begin VB.Line lneSep2 
  242.       BorderColor     =   &H80000003&
  243.       Index           =   1
  244.       X1              =   1680
  245.       X2              =   1680
  246.       Y1              =   3025
  247.       Y2              =   2625
  248.    End
  249.    Begin VB.Line lneSep 
  250.       BorderColor     =   &H80000003&
  251.       Index           =   1
  252.       X1              =   0
  253.       X2              =   3360
  254.       Y1              =   3030
  255.       Y2              =   3030
  256.    End
  257.    Begin VB.Line lneSep2 
  258.       BorderColor     =   &H00FFFFFF&
  259.       Index           =   0
  260.       X1              =   1695
  261.       X2              =   1695
  262.       Y1              =   3045
  263.       Y2              =   2640
  264.